Introducción a R

2 + 3     

10 - 4    

3 * 5     

20 / 4    

x <- 10    
y <- 5
suma <- x + y
suma

suma + 7

yo_uso_la_serpiente <- 10
OtraGenteUsaElCamello <- 9
otra.gente.usa.los.puntos <- 9
Hayque_evitar.esto10 <- 2

numero <- 1:10
numero

caracter <- "del uno al diez"
caracter

#numero * caracter

numeros <- c(1, 2, 3, 4, 5) 
otros_numeros <- 1:40
otros_numeros

otros_numeros + 10

promedio <- mean(numeros)
promedio

promedio * numeros

numeros / otros_numeros

# Consecutivos del 1:10
1:10

# Un vector de 5 números aleatorios con distribución uniforme
runif(5)

# Ahora que 3 números vayan del 0 al 100
runif(3, min=0, max=100)

# 4 números con una distribución normal
rnorm(4)

# Especificando la media y la desviación
x <- rnorm(400, mean=50, sd=10)

# Sample = elegir 3 bolas de un bingo en el que hay 100
sample(0:100, 3, replace=TRUE) 

# Generador de secuencias: del 0 al 100 cada 10
seq(0, 100, 10)

# Queremos la media de nuestros números transformados a logaritmo

vector <- seq(1, 100, 10)
mean (log (vector))

sd (log (vector))

vector2 <- seq(1, 300, 50)
mean (log (vector2))

sd (log (vector2))

log_vect <- function (y) {
  mean_y <- mean (log (y+1))
  sd_y <- sd (log (y+1))
  print(paste("La media es", mean_y, ", la desviación estándar es:", round(sd_y,2)))
  return(log(y))
}

vector3 <- seq(1, 300, 4)
distribution = log_vect (vector3)

hist(distribution)

# 1. Calcula el minimo valor de 100 valores aleatorios según una distribución normal
min (rnorm (100))

# 2. Dada una secuencia de 20 números seguidos (del 0 al 20), genera los pares y guárdalo en un objeto.
pares <- seq (0, 20, 2)

# 3. Ejercicio:

  # Crea un vector con 20 números aleatorios entre 0 y 50.
  # Calcula el promedio y la desviación estándar.
  # Multiplica todos los valores por 2.
  # Dibuja un histograma.
  #¿Cómo cambia el promedio después de multiplicar por 2?

mi_vector <- runif(20,0,50)
mean (mi_vector)

sd (mi_vector)

mi_vector_2 <- mi_vector*2
hist(mi_vector_2)

# 4. Haz una función que me diga si un número cualquiera es par o no (opcional)
que_tipo_de_numero_soy <- function (x) {
ifelse(x %% 2 == 0, "par", "impar")
}